﻿Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Button15.Enabled = True
        MsgBox("Remember, do not click the [4. Repack] button until you have Saved and Closed the AndroidManifest file!")
        SaveSetting("AIToMarket", "Settings", "Manifest1", TextBox1.Text)
        SaveSetting("AIToMarket", "Settings", "Manifest3", TextBox2.Text)

        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.SelectAll()
        TextBox1.Copy()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox2.SelectAll()
        TextBox2.Copy()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox2.Text = "<uses-sdk android:minSdkVersion=" + Chr(34) + "5" + Chr(34) + " android:targetSdkVersion=" + Chr(34) + "8" + Chr(34) + "/>"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = "android:versionCode = " + Chr(34) + "1" + Chr(34) + vbCrLf + "android: versionName = " + Chr(34) + "1.0" + Chr(34)
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = GetSetting("AIToMarket", "Settings", "Manifest1", "android:versionCode = " + Chr(34) + "1" + Chr(34) + vbCrLf + "android:versionName = " + Chr(34) + "1.0" + Chr(34))
        TextBox2.Text = GetSetting("AIToMarket", "Settings", "Manifest3", "<uses-sdk android:minSdkVersion=" + Chr(34) + "5" + Chr(34) + " android:targetSdkVersion=" + Chr(34) + "8" + Chr(34) + "/>")

    End Sub
End Class